home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Documentation / Code Examples from Docs / langguid / chap_01 / xmpl_04.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  888 b   |  40 lines  |  [TEXT/ttxt]
  1. --<<<
  2. -- Kaleida Labs, Inc.
  3. -- Field Guide to the ScriptX Language
  4. -- chapter 1, example 4
  5.  
  6. -- create a module so that names used earlier in the chapter do not
  7. -- conflict with names used here
  8.  
  9. module Scratch3 uses ScriptX end
  10. in module Scratch3
  11.  
  12.  
  13. class Canine ()
  14.     instance variables 
  15.         age, length, weight, sex, temperament
  16.     instance methods
  17.         method bark self -> print "makes a lot of noise" 
  18.         method sniff self -> print "sticks nose into things" 
  19.         method sleep self -> print "lazy dog sleeps all day" 
  20. end
  21.  
  22. class Pet (RootObject)
  23.     instance variables 
  24.         name, owner, breed, veterinarian, spayed
  25.     instance methods
  26.         method fetch self -> print "fetches a stick" 
  27. end
  28.  
  29. class PetDog (Pet, Canine)
  30. end
  31.  
  32.  
  33. object tammy (PetDog)
  34.     settings name:"Tammy", owner:"the Metzenbergs", sex:@female,
  35.         spayed:@true, breed:"Siberian Husky", veterinarian:"Dr. Donovan"
  36. end
  37.  
  38. fetch tammy
  39. sniff tammy
  40. -->>>